﻿Public Class frmTratadoraProcesarPregunta

    Private Sub btnRed_Click(sender As Object, e As EventArgs) Handles btnRed.Click
        Me.Tag = "RED"
        Me.Close()
    End Sub

    Private Sub btnPendrive_Click(sender As Object, e As EventArgs) Handles btnPendrive.Click
        Me.Tag = "PENDRIVE"
        Me.Close()
    End Sub

    Private Sub frmTratadoraProcesarPregunta_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lblTitulo.Text = "Descarga y Proceso de archivo " & Me.Tag
    End Sub
End Class